uses Crt, Dos;

var  regs: Registers;

  f: word;

begin

  writeln('0 - вывод символа на печать,');

  writeln('1 - инициализация  порта,');

  writeln('2- получение слова состояния.');

  write('Функция: '); readln(f);

  with regs do 

begin  ah:= f; al:= 7; dx:= 0;   end;

  intr($17,regs);  writeln('Status: ', regs.ah);

end.

{Registers = record

  case Integer of

  0: (AX, BX, CX, DX, BP, SI, DI, DS, ES, Flags: Word);

  1: (AL, AH, BL, BH, CL, CH, DL, DH: Byte);end;}